## Warning in RColorBrewer::brewer.pal(N, "Set2"): minimal value for n is 3, returning requested palette with 3 different levels
## Warning in RColorBrewer::brewer.pal(N, "Set2"): minimal value for n is 3, returning requested palette with 3 different levels
## Warning in RColorBrewer::brewer.pal(N, "Set2"): minimal value for n is 3, returning requested palette with 3 different levels
## Warning in RColorBrewer::brewer.pal(N, "Set2"): minimal value for n is 3, returning requested palette with 3 different levels
## # A tibble: 1,868 × 29
## division line station_name station_latitude station_longitude route1 route2
## <chr> <chr> <chr> <dbl> <dbl> <chr> <chr>
## 1 BMT 4 Ave… 25th St 40.7 -74.0 R <NA>
## 2 BMT 4 Ave… 25th St 40.7 -74.0 R <NA>
## 3 BMT 4 Ave… 36th St 40.7 -74.0 N R
## 4 BMT 4 Ave… 36th St 40.7 -74.0 N R
## 5 BMT 4 Ave… 36th St 40.7 -74.0 N R
## 6 BMT 4 Ave… 45th St 40.6 -74.0 R <NA>
## 7 BMT 4 Ave… 45th St 40.6 -74.0 R <NA>
## 8 BMT 4 Ave… 45th St 40.6 -74.0 R <NA>
## 9 BMT 4 Ave… 45th St 40.6 -74.0 R <NA>
## 10 BMT 4 Ave… 53rd St 40.6 -74.0 R <NA>
## # ℹ 1,858 more rows
## # ℹ 22 more variables: route3 <chr>, route4 <chr>, route5 <chr>, route6 <chr>,
## # route7 <chr>, route8 <dbl>, route9 <dbl>, route10 <dbl>, route11 <dbl>,
## # entrance_type <fct>, entry <chr>, exit_only <chr>, vending <chr>,
## # staffing <fct>, ada <lgl>, free_crossover <lgl>, entrance_latitude <dbl>,
## # entrance_longitude <dbl>, station_location <chr>, entrance_location <chr>,
## # `ada <- factor(ada, levels = c("FALSE", "TRUE"))` <fct>, …